COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC FUN.FUN[SCR,LCS]
COMMON TOOT,CLAR;
COMMON newfm,FM;
*

REVRB 0 0 1;P2  27;END;

FM  0 25;
P2 RHY/32X8/16//REP 10 2/32;	< quarter note, 2 eighths, half
P3 NU/200/80;         
P4 1;					< maximum amplitude
P5 FUN/10//11;		  AMPL. FUNC.
P6 FUN/11/////10;				< FM INDEX ("SEG") function
P7 0  ;
P8 NU/2/25/8;	 < FM2
P9 NU/1.5/.625/P25/.7/2; CARRIER SCALE FACTOR
P10 1;  MODULATOR SCALE FACTOR
P12 .08;
P25 .50 .9 1.1  .5 1 8;
DF 200.12;
END;
 
TOOT 3 20;
P2 TAP;
DTOOT
P3 MOV/3 A5 A5 A4 A5/7 C5 A  C4 C6/7 F4 F F5 C6;
P4 1;
P5 F2;
P6 F1;
P7 .1;
P25 0  ;
END;